home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
SWDOS12
/
FTIME.ASM
< prev
next >
Wrap
Assembly Source File
|
1995-02-10
|
2KB
|
75 lines
;******************************************************************
;* FTIME.ASM *
;* Source file for SoftWeyr enhanced DOS toolbox *
;* version 1.1 *
;* Copyright (c) by SoftWeyr,1994 *
;******************************************************************
Model TPascal
Locals
.Data
EXTRN DosError :word
Handle DW ?
.Code
Public SetFileTime
Public GetFileTime
Extrn SetHandleTime :Far
Extrn GetHandleTime :far
Extrn Asciiz:Far
SetFileTime Proc Far FileName:Dword,DateTime:Dword
;Procedure SetFileTime(FileName:String;DateTime:LongInt);
CALL OpenFile
Cmp DosError,0
JC @@Exit
PUSH Handle
Call SetHandleTime
Call CloseFile
@@Exit: JC @@Error
XOR AX,AX
@@Error: CMP DosError,0
JnE @@Quit
MOV DosError,AX
@@Quit: RET
ENDP
GetFileTime Proc Far FileName:DWord,DateTime:DWord
;Procedure GetFileTime(FileName:String;var DateTime:LongInt);
CALL OpenFile
Cmp DosError,0
JC @@Exit
PUSH Handle
PUSH Word ptr DateTime[2]
PUSH Word Ptr DateTime[0]
Call GetHandleTime
Call CloseFile
@@Exit: JC @@Error
XOR AX,AX
@@Error: CMP DosError,0
JnE @@Quit
MOV DosError,AX
@@Quit: RET
ENDP
OpenFile Proc Near
LOCAL AName:Byte:80=LSIZE
PUSH DS
LDS SI,[BP+10];Caller's FileName parameter
LEA DI,AName
CALL Asciiz
Lea dx,AName
PUSH SS
POP DS
mov ax,3D00H
Int 21h
POP DS
JC @@Error
MOV Handle,AX
SUB AX,AX
@@Error: MOV DosError,AX
Ret
OpenFile ENDP
CLoseFile Proc Near
MOV BX,Handle
MOV AH,3EH
INT 21h
RET
CloseFile ENdP
END